home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / QDOffscreen.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  3.9 KB  |  123 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Sunday, January 6, 1991 at 10:59 PM
  3.     QDOffscreen.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.         Copyright Apple Computer, Inc.    1985-1990
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT QDOffscreen;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingQDOffscreen}
  21. {$SETC UsingQDOffscreen := 1}
  22.  
  23. {$I+}
  24. {$SETC QDOffscreenIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingQuickdraw}
  27. {$I $$Shell(PInterfaces)Quickdraw.p}
  28. {$ENDC}
  29. {$SETC UsingIncludes := QDOffscreenIncludes}
  30.  
  31. CONST
  32.  
  33. { New error codes }
  34. cDepthErr = -157;   {invalid pixel depth}
  35. pixPurgeBit = 0;
  36. noNewDeviceBit = 1;
  37. useTempMemBit = 2;
  38. keepLocalBit = 3;
  39. pixelsPurgeableBit = 6;
  40. pixelsLockedBit = 7;
  41. mapPixBit = 16;
  42. newDepthBit = 17;
  43. alignPixBit = 18;
  44. newRowBytesBit = 19;
  45. reallocPixBit = 20;
  46. clipPixBit = 28;
  47. stretchPixBit = 29;
  48. ditherPixBit = 30;
  49. gwFlagErrBit = 31;
  50.  
  51. TYPE
  52. GWorldFlags = SET OF (pixPurge,noNewDevice,useTempMem,keepLocal,GWorldFlags4,
  53.     GWorldFlags5,pixelsPurgeable,pixelsLocked,GWorldFlags8,GWorldFlags9,GWorldFlags10,
  54.     GWorldFlags11,GWorldFlags12,GWorldFlags13,GWorldFlags14,GWorldFlags15,
  55.     mapPix,newDepth,alignPix,newRowBytes,reallocPix,GWorldFlags21,GWorldFlags22,
  56.     GWorldFlags23,GWorldFlags24,GWorldFlags25,GWorldFlags26,GWorldFlags27,
  57.     clipPix,stretchPix,ditherPix,gwFlagErr);
  58.  
  59.  
  60. GWorldPtr = CGrafPtr;
  61.  
  62.  
  63. FUNCTION NewGWorld(VAR offscreenGWorld: GWorldPtr;PixelDepth: INTEGER;boundsRect: Rect;
  64.     cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): QDErr;
  65.     INLINE $203C, $0016, $0000,$AB1D;
  66. FUNCTION LockPixels(pm: PixMapHandle): BOOLEAN;
  67.     INLINE $203C, $0004, $0001, $AB1D;
  68. PROCEDURE UnlockPixels(pm: PixMapHandle);
  69.     INLINE $203C, $0004, $0002, $AB1D;
  70. FUNCTION UpdateGWorld(VAR offscreenGWorld: GWorldPtr;pixelDepth: INTEGER;
  71.     boundsRect: Rect;cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): GWorldFlags;
  72.     INLINE $203C, $0016, $0003, $AB1D;
  73. PROCEDURE DisposeGWorld(offscreenGWorld: GWorldPtr);
  74.     INLINE $203C, $0004, $0004, $AB1D;
  75. PROCEDURE GetGWorld(VAR port: CGrafPtr;VAR gdh: GDHandle);
  76.     INLINE $203C, $0008, $0005, $AB1D;
  77. PROCEDURE SetGWorld(port: CGrafPtr;gdh: GDHandle);
  78.     INLINE $203C, $0008, $0006, $AB1D;
  79. PROCEDURE CTabChanged(ctab: CTabHandle);
  80.     INLINE $203C, $0004, $0007, $AB1D;
  81. PROCEDURE PixPatChanged(ppat: PixPatHandle);
  82.     INLINE $203C, $0004, $0008, $AB1D;
  83. PROCEDURE PortChanged(port: GrafPtr);
  84.     INLINE $203C, $0004, $0009, $AB1D;
  85. PROCEDURE GDeviceChanged(gdh: GDHandle);
  86.     INLINE $203C, $0004, $000A, $AB1D;
  87. PROCEDURE AllowPurgePixels(pm: PixMapHandle);
  88.     INLINE $203C, $0004, $000B, $AB1D;
  89. PROCEDURE NoPurgePixels(pm: PixMapHandle);
  90.     INLINE $203C, $0004, $000C, $AB1D;
  91. FUNCTION GetPixelsState(pm: PixMapHandle): GWorldFlags;
  92.     INLINE $203C, $0004, $000D, $AB1D;
  93. PROCEDURE SetPixelsState(pm: PixMapHandle;state: GWorldFlags);
  94.     INLINE $203C, $0008, $000E, $AB1D;
  95. FUNCTION GetPixBaseAddr(pm: PixMapHandle): Ptr;
  96.     INLINE $203C, $0004, $000F, $AB1D;
  97. FUNCTION NewScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  98.     VAR offscreenPixMap: PixMapHandle): QDErr;
  99.     INLINE $203C, $000E, $0010, $AB1D;
  100. PROCEDURE DisposeScreenBuffer(offscreenPixMap: PixMapHandle);
  101.     INLINE $203C, $0004, $0011, $AB1D;
  102. FUNCTION GetGWorldDevice(offscreenGWorld: GWorldPtr): GDHandle;
  103.     INLINE $203C, $0004, $0012, $AB1D;
  104. FUNCTION QDDone(port: GrafPtr): BOOLEAN;
  105.     INLINE $203C, $0004, $0013, $AB1D;
  106. FUNCTION OffscreenVersion: LONGINT;
  107.     INLINE $7014, $AB1D;
  108. FUNCTION NewTempScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  109.     VAR offscreenPixMap: PixMapHandle): QDErr;
  110.     INLINE $203C, $000E, $0015, $AB1D;
  111. FUNCTION PixMap32Bit(pmHandle: PixMapHandle): BOOLEAN;
  112.     INLINE $203C, $0004, $0016, $AB1D;
  113. FUNCTION GetGWorldPixMap(offscreenGWorld: GWorldPtr): PixMapHandle;
  114.     INLINE $203C, $0004, $0017, $AB1D;
  115.  
  116.  
  117. {$ENDC}    { UsingQDOffscreen }
  118.  
  119. {$IFC NOT UsingIncludes}
  120.     END.
  121. {$ENDC}
  122.  
  123.